procedure FillChar(var B; Count: PtrInt; value: byte);
procedure FillWord(var B; Count: PtrInt; value: word);
procedure FillDWord(var B; Count: PtrInt; value: dword);

procedure Move(const Src; Var dest; count: PtrInt);

function Align(p: Pointer; Alignment: PtrUInt): Pointer;